home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / lib / emacs / 19.22 / lisp / iso-transl.el < prev    next >
Text File  |  1993-11-06  |  5KB  |  148 lines
  1. ;;; iso-transl.el --- keyboard input definitions for ISO 8859/1.
  2.  
  3. ;; Copyright (C) 1987, 1993 Free Software Foundation, Inc.
  4.  
  5. ;; Author: Howard Gayle
  6. ;; Maintainer: FSF
  7. ;; Keywords: i18n
  8.  
  9. ;; This file is part of GNU Emacs.
  10.  
  11. ;; GNU Emacs is free software; you can redistribute it and/or modify
  12. ;; it under the terms of the GNU General Public License as published by
  13. ;; the Free Software Foundation; either version 2, or (at your option)
  14. ;; any later version.
  15.  
  16. ;; GNU Emacs is distributed in the hope that it will be useful,
  17. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ;; GNU General Public License for more details.
  20.  
  21. ;; You should have received a copy of the GNU General Public License
  22. ;; along with GNU Emacs; see the file COPYING.  If not, write to
  23. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  24.  
  25. ;;; Code:
  26.  
  27. (let ((map (make-sparse-keymap)))
  28.   (define-key map " "    [160])
  29.   (define-key map "!"    [161])
  30.   (define-key map "\""   (make-sparse-keymap))
  31.   (define-key map "\"\"" [168])
  32.   (define-key map "\"A"  [196])
  33.   (define-key map "\"E"  [203])
  34.   (define-key map "\"I"  [207])
  35.   (define-key map "\"O"  [214])
  36.   (define-key map "\"U"  [220])
  37.   (define-key map "\"a"  [228])
  38.   (define-key map "\"e"  [235])
  39.   (define-key map "\"i"  [239])
  40.   (define-key map "\"o"  [246])
  41.   (define-key map "\"u"  [252])
  42.   (define-key map "\"y"  [255])
  43.   (define-key map "'"    (make-sparse-keymap))
  44.   (define-key map "''"   [180])
  45.   (define-key map "'A"   [193])
  46.   (define-key map "'E"   [201])
  47.   (define-key map "'I"   [205])
  48.   (define-key map "'O"   [211])
  49.   (define-key map "'U"   [218])
  50.   (define-key map "'Y"   [221])
  51.   (define-key map "'a"   [225])
  52.   (define-key map "'e"   [233])
  53.   (define-key map "'i"   [237])
  54.   (define-key map "'o"   [243])
  55.   (define-key map "'u"   [250])
  56.   (define-key map "'y"   [253])
  57.   (define-key map "$"    [164])
  58.   (define-key map "+"    [177])
  59.   (define-key map ","    (make-sparse-keymap))
  60.   (define-key map ",,"   [184])
  61.   (define-key map ",C"   [199])
  62.   (define-key map ",c"   [231])
  63.   (define-key map "-"    [173])
  64.   (define-key map "."    [183])
  65.   (define-key map "/"    (make-sparse-keymap))
  66.   (define-key map "//"   [247])
  67.   (define-key map "/O"   [216])
  68.   (define-key map "/o"   [248])
  69.   (define-key map "1"    (make-sparse-keymap))
  70.   (define-key map "1/"   (make-sparse-keymap))
  71.   (define-key map "1/2"  [189])
  72.   (define-key map "1/4"  [188])
  73.   (define-key map "3"    (make-sparse-keymap))
  74.   (define-key map "3/"   (make-sparse-keymap))
  75.   (define-key map "3/4"  [190])
  76.   (define-key map "<"    [171])
  77.   (define-key map "="    [175])
  78.   (define-key map ">"    [187])
  79.   (define-key map "?"    [191])
  80.   (define-key map "A"    (make-sparse-keymap))
  81.   (define-key map "AA"   [197])
  82.   (define-key map "AE"   [198])
  83.   (define-key map "C"    [169])
  84.   (define-key map "D"    [208])
  85.   (define-key map "L"    [163])
  86.   (define-key map "P"    [182])
  87.   (define-key map "R"    [174])
  88.   (define-key map "S"    [167])
  89.   (define-key map "T"    [222])
  90.   (define-key map "Y"    [165])
  91.   (define-key map "^"    (make-sparse-keymap))
  92.   (define-key map "^1"   [185])
  93.   (define-key map "^2"   [178])
  94.   (define-key map "^3"   [179])
  95.   (define-key map "^A"   [194])
  96.   (define-key map "^E"   [202])
  97.   (define-key map "^I"   [206])
  98.   (define-key map "^O"   [212])
  99.   (define-key map "^U"   [219])
  100.   (define-key map "^a"   [226])
  101.   (define-key map "^e"   [234])
  102.   (define-key map "^i"   [238])
  103.   (define-key map "^o"   [244])
  104.   (define-key map "^u"   [251])
  105.   (define-key map "_"    (make-sparse-keymap))
  106.   (define-key map "_a"   [170])
  107.   (define-key map "_o"   [186])
  108.   (define-key map "`"    (make-sparse-keymap))
  109.   (define-key map "`A"   [192])
  110.   (define-key map "`E"   [200])
  111.   (define-key map "`I"   [204])
  112.   (define-key map "`O"   [210])
  113.   (define-key map "`U"   [217])
  114.   (define-key map "`a"   [224])
  115.   (define-key map "`e"   [232])
  116.   (define-key map "`i"   [236])
  117.   (define-key map "`o"   [242])
  118.   (define-key map "`u"   [249])
  119.   (define-key map "a"    (make-sparse-keymap))
  120.   (define-key map "aa"   [229])
  121.   (define-key map "ae"   [230])
  122.   (define-key map "c"    [162])
  123.   (define-key map "d"    [240])
  124.   (define-key map "o"    [176])
  125.   (define-key map "s"    [223])
  126.   (define-key map "t"    [254])
  127.   (define-key map "u"    [181])
  128.   (define-key map "x"    [215])
  129.   (define-key map "|"    [166])
  130.   (define-key map "~"    (make-sparse-keymap))
  131.   (define-key map "~A"   [195])
  132.   (define-key map "~N"   [209])
  133.   (define-key map "~O"   [213])
  134.   (define-key map "~a"   [227])
  135.   (define-key map "~n"   [241])
  136.   (define-key map "~o"   [245])
  137.   (define-key map "~~"   [172])
  138.   (or key-translation-map
  139.       (setq key-translation-map (make-sparse-keymap)))
  140.   (define-key key-translation-map "\C-x8" map)
  141.   (define-key isearch-mode-map "\C-x" nil)
  142.   (define-key isearch-mode-map [?\C-x t] 'isearch-other-control-char)
  143.   (define-key isearch-mode-map "\C-x8" nil))
  144.  
  145. (provide 'iso-transl)
  146.  
  147. ;;; iso-transl.el ends here
  148.